platform/iphone/iPhone Resources/patches/reverb.rtf

   1 {\rtf1\ansi\ansicpg1252\cocoartf949\cocoasubrtf460
   2 {\fonttbl\f0\fnil\fcharset0 Monaco;}
   3 {\colortbl;\red255\green255\blue255;\red0\green0\blue191;\red0\green25\blue186;\red43\green111\blue17;
   4 \red173\green29\blue19;}
   5 \deftab720
   6 \pard\pardeftab720\ql\qnatural
   7
   8 \f0\fs18 \cf2 Server\cf0 .default = \cf2 Server\cf0 .internal;\
   9 s = Server.internal;\
  10 s.waitForBoot(\
  11 \{      \
  12         z = \cf3 SynthDef\cf0 (\cf4 \\src\cf0 , \{\cf3 |mix = 0.25, room = 0.15, damp = 0.5|\
  13 \pard\pardeftab560\ql\qnatural
  14 \cf3    \cf0    \cf3 Out\cf0 .ar(0,\
  15                         \cf3 FreeVerb\cf0 .ar(\cf3 \
  16         \cf0                    \cf3 AudioIn.ar(1)\cf0 , \cf5 // mono src\cf0 \
  17                                 mix, \cf5 // mix 0-1\
  18         \cf0                    room, \cf5 // room 0-1\
  19         \cf0                    damp \cf5 // damp 0-1 duh\
  20         \cf0            ) ! 2 \cf5 //fan out...\
  21         \cf0    );\
  22         \}).play;\
  23         s.sync;\
  24         z.set(\cf4 \\room\cf0 , 0.7);\
  25         z.set(\cf4 \\mix\cf0 , 0.4);\
  26         z.set(\cf4 \\damp\cf0 , 0.2);\
  27 \});}